#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my $count = 0;
my @genes;

open GENES, "</usr/users/ga002/corpasm/workarea/ricinus/data/fattyAcidSynth.txt";
while (<GENES>) {
  my $line = $_;
  chomp($line);
  push @genes,$line; 
}
close GENES;
print Dumper \@genes;


open FILE, "</data/workarea/swarbred/Castor_slabas/castor_exon_sorted.gtf";
while (<FILE>) {
  my $line = $_;
#  if 
}
close FILE; 
